home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / pc / pb / profile.dir / 00290_Script_prebio prep < prev    next >
Text File  |  1997-07-29  |  360b  |  15 lines
  1. on exitFrame
  2.   global current_pm, next_bsub
  3.   
  4.   set next_bsub = ""
  5.   put current_pm into item 1 of next_bsub
  6.   put "bio" into item 2 of next_bsub
  7.   put 1 into item 3 of next_bsub
  8.   
  9.   getbiolist 
  10.   
  11.   dobiorolls(item 3 of next_bsub) -- set the rolls for each bio screen
  12.   global credit_roll
  13.   put setbiocredit(current_pm) into credit_roll
  14.   
  15. end